Why my values of `beta` is increasing to infinity for my for loop?

Question

   library(foreign)
   cognitive = read.dta("http://www.stat.columbia.edu/~gelman/arm/examples/child.iq/kidiq.dta")
   summary(cognitive)
   cognitive$mom_