Вот один вариант с cbind.fill
из rowr
library(rowr)
out <- cbind.fill(df1$no1408[2:5], df1$no1408[8:12], fill = NA)
names(out) <- paste0("New_", 1:2)
data
df1 <- structure(list(no1408 = c(10L, 2L, 3L, 5L, 6L, 8L, 20L, 40L,
8L, 12L, 12L, 6L)), class = "data.frame", row.names = c(NA, -12L
))