R function for creating a large number of subsets, doing ols and saving estimates to a data.frame

Question

I need to do 100 iterations of the following algorithm: make a subset; do a linear regression y=a+bx; save estimates of coefficients in separate dataset for further analyses