Как создать столбцы в цикле?

Вот решение с использованием summarize пакета data.table.

dt[, varlist[1:length(varlist)]:=NA]

Например...

library(data.table)

varlist <- c("5000_A", "5000_B", "5000_C", "5000_D", 
             "5000_E", "5000_F", "5000_G", "5000_H")

dt <- data.table("A" = c(1,2,3), B = c("a", "b", "c"))

dt[, varlist[1:length(varlist)]:=NA]

> dt
   A B 5000_A 5000_B 5000_C 5000_D 5000_E 5000_F 5000_G 5000_H
1: 1 a     NA     NA     NA     NA     NA     NA     NA     NA
2: 2 b     NA     NA     NA     NA     NA     NA     NA     NA
3: 3 c     NA     NA     NA     NA     NA     NA     NA     NA