#VBA (Excel), 105 Bytes
Yeah, Excel beat VBA this time. Whatever.
d=vbCr:For i=0To[a1]:?IIf(i Mod 3=0,"Yeah"&d,"")&IIf(i Mod 2=0,"But"&d,"")&IIf(i Mod 3=1,"No"&d,"");:Next
^This is pasted into the Immediate window and outputs to the debug window
Ungolfed
d = vbCr
'For 1 to the value in A1 (using 0 gave extra values, and VBA skips the for loop if 0)
For i = 1 To Range("A1").value
'Print usually prints a newline, but it still outputs if the string is blank...
' So we append a newline -if true- and use a semi-colon to kill the newline
Print IIf(i Mod 3 = 0,"Yeah" & d,"") & _ '<-- Just a line continuation
IIf(i Mod 2 = 0,"But" & d,"") & _
IIf(i Mod 3 = 1,"No" & d,"");
Next