Alexandre!!

Não sei se entendi direito, mais vai uma primeira tentativa.

p0<- c(15,15)#Ponto inicial

c0 <- seq(10,100,by=10)

malha <- list()
for(i in 1:length(c0)){
   malha[[i]] <- expand.grid(xp=seq(p0[1], by=c0[[i]], length.out=20), yp=seq(p0[2], by=c0[[i]], length.out=20))#Criando um grid de pontos a cada 10 metros
}
malha[[2]]

plot(malha[[2]])
plot(malha[[3]])