Hi Sergio
I think I know where you want to go with this. I'm sure there are more elegant ways to achieve this but this is what I do to extract results for further use. If we set the calculation like this
p = Solve[0.1333*H*H/(95*95 + H*H) - k*(Nesp*Ix - H*lm) == 0, H,
Reals]; p = FromDigits[H /. p]
the variable p is now your new result, thus
167.894
we can now use this in the follow up
(0.133*p^2)/(95^2 + p^2)
giving this 0.100745
Hope this helps a little
Paul.