prob=Probability[n≤k,n\[Distributed]PoissonDistribution[10^4 10^-3],Assumptions->k∈Integers]

Minimize[{k,prob>999/1000&&k<30},k,Integers]