Вы можете использовать lapply
как:
n <- nrow(Results)
lapply(seq(1,n, 10), function(x)
write.csv(Results[-(x:min((x+9), n))], paste0("data", x, "-", x+9, ".csv")))
Это запишет csvs в ваш рабочий каталог с именем "data1-10.csv"
, "data11-20.csv"
et c.