How to get/save a a vector of multiple runs from a same function?

I wanna save multiple results of a sampling function (Due to reproducibility) in order to take samples from an experiment.

First I create a vector with the coordenates of the sampling field

column<-LETTERS[1:5]
rows<-c(1:8)
coordenates<-expand.grid(column,rows)
coordenates<-paste0(coordenates$Var1,coordenates$Var2)

Then generated a vector with the random order of sampling

set.seed(1000)
takesample <-sample(coordenates, 40)

But now i want to save 18 results/runs from

takesample