data <- 'CREATE'
data2 <- 'LAST'
sink("Text.csv")
for(i in 1:20) if(i==1) {print(data);}else if(i%%10==1){print(data);}else{print(data2);}

[1] "CREATE"
[1] "LAST"
[1] "LAST"
[1] "LAST"
[1] "LAST"
[1] "LAST"
[1] "LAST"
[1] "LAST"
[1] "LAST"
[1] "LAST"
[1] "CREATE"
[1] "LAST"
[1] "LAST"
[1] "LAST"
[1] "LAST"
[1] "LAST"
[1] "LAST"
[1] "LAST"
[1] "LAST"
[1] "LAST"