I see that you index your loop with i
but dont include that anywhere inside the loop.
I imagine that you want to loop over the rows of your data. So change the index range to 1:nrow(data), and include the index for the row you want do draw for each i.
for( i in 1:nrow(data)){
inter <- gcIntermediate(c(data$LONG[i], data$LAT[i]),
c(lon_me, lat_me),
n=50,
addStartEnd=TRUE)
...
}