Increase speed for monte-carlo simulation with for loop in R

Question

I am trying to perform monte-carlo simulation on 2 variables (or columns) of a dataframe, DF. Now, in the first part I am performing a monte-carlo simulation for log-normal